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This Technical Note presents a method for speeding up custom List Draw routines, with sample 
source code for the APW assembler. 

Changes since November 1989: Added information on memFlag and on shared rListRef 
resources, and noted that System 6.0 already checks the clip region and calls your listDraw 
routine only when needed. 



Ten— More memFlag Bits 

In each member record, bits and 1 of memFlag indicate whether memPtr is a pointer, handle, or 
resource ID. You don't normally have to worry about that— a custom listDraw routine is one 
place that you do. The complete definition of memFlag is as follows: 

Bit Description 
7 memSelected 
6 memDisabled 
5 memNever (Inactive) 

4-2 reserved — set to zero 
1-0 00 = memPtr is a pointer 
01 = memPtr is a handle 

10 = memPtr is a resource ID (type is rPString or rCStr ing) 

11= reserved 



Nine— Sharing rListRef resources 

When listRef is a resource ID, the List Manager calls LoadResource every time it needs 
your rListRef resource. If two or more lists share the same rListRef, they will get the same 
handle from LoadResource and will interfere with each other. 

To give each list its own copy of your the rListRef resource, load the resource yourself and use 
DetachResource. Then feed the listRef to the List Manager as a handle. Repeat the 
process for each list. 
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Eight— Custom llstDraw Routines and the Clip Region 

The custom listDraw routine below speeds up your list when running System Software earUer than 
6.0. The System 6.0 List Manager already calls your listDraw routine only for members that 
will not be completely clipped (but this is still a good starting point if you're writing a custom 
listDraw routine for some other reason). 



To scroll text, the List Manager calls ScrollRect to scroll the list— then 6.0 redraws the newly- 
exposed members, and older versions redraw all the visible members. On small hsts this is fine, but 
on larger lists it can cause the redrawing of much data that is already on the screen, which can take 
time. If your application does not require 6.0, you may want to use a custom listDraw routine 
like this one. 



First, we check the current clipRgn (which the List Manager was kind enough to shrink down to 
include only the portion of the list that needs redrawing) against the passed item rectangle. If the 
rectangle is in any way enclosed in the clipRgn, then the member is redrawn; otherwise the 
routine simply returns to the List Manager without drawing. This sample routine is designed to 
work only with Pascal-style strings, but it can be easily modified to use any other type of string you 
choose. 



MyListDraw Start 

This routine draws a list member if any part of the mettiber ' s 
rectangle is inside the current clipRgn. 

Note that the Data Bank register is not defined on entry 
to this routine. If you use any absolute addressing, you 
must set B yourself and restore its value before exiting. 



top 

left 

bottom 

right 

rgnBounds 



equ 
equ top+2 
equ left+2 
equ bottam+2 
equ 2 



oldDPage 

theRTL 

listHand 

memPtr 

theRect 



equ 1 

equ oldDPage+2 
equ theRTL+3 
equ listHand+4 
equ memPtr+4 
using globals 



phd 
tsc 
ted 



pha 
pha 

_GetClipHandle 
PullLong listHand 

Idy #2 

Ida [ listhand ] , y 
tax 

Ida [listhand] 
sta listhand 
stx listhand+2 



Ida [therect] ; now test the top 

dec a ; adjust and give a little slack 

Idy #rgnbounds+bottam 

cmp [ listhand ],y ; rgnRectBottom>=top? 
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bit skip2 
brl NoDraw 
Skip2 Idy #bottom 

inc a 

Ida [ therect ] , y 
Idy #rgnBounds+top 
cmp [ listhand ] , y 
bit NoDraw 
NoTest ANOP 



if not don't draw.. 

now see if the bottom is higher than the top 
give a little slack 



; if we get 
noSelect 



memDrawn 



PushLong theRect 
_EraseRect 

Idy #left 

Ida [ theRect ],y 

tax 

Idy #bottom 

Ida [ theRect ],y 

dec a 

phx 

pha 

_MoveTo 
Idy #2 

Ida [itiemptr] ,y 
pha 

Ida [Itiemptr] 
pha 

_DrawString 
Idy #4 

Ida [memPtr],y 
and #$00C0 
beq memDrawn 
cmp #$0080 
bne noSelect 
PushLong theRect 
_lnveirtRect 
bra memDrawn 
here the member is 
PushLong #DimMask 
_SetPenMask 
PushLong theRect 
_EraseRect 
PushLong #NorMask 
_SetPenMask 
ANOP 



erase the old rectangle 



strip to the 6 and 7 bits 
if they are both the member 
member selected? 
member not selectable 



is drawn 



disabled 



; exit here 

pld 

sep #$20 
longa off 
pla 
ply 

plx 
plx 
plx 
plx 
plx 
plx 
phy 
pha 

rep #$20 
longa on 
rtl 
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DimMask dc il ' $55,$AA,$55,$AA,$55,$AA,$55,$AA' 

NorMask dc il ' $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF' 

end 



I Seven through One— Reserved For Future Expansion 



Further Reference 

• Apple IlGS Toolbox Reference, Volumes 1 and 3 
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